1 IFPEEK(787)<>1THENSYS57812"FNT",8,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
2 POKE787,1:IFCH=1THENPOKE53272,31:GOTO27
3 POKE53272,31:POKE53281,0:POKE53280,0:PRINT"[147][158]":POKE55,0:POKE56,56:CLR
4 F1$="[204][207][193][196][211][212][193] [210]":F2$="[208] [210] [197] [211] [197] [206] [212] [211]":F3$="[194][217]":F4$="[202][197][198][198][210][197][217] [204]. [202][207][206][197][211]"
5 S=54272:FORI=0TO24:POKES+L,0:NEXT
6 POKES+1,100:POKES+5,9:POKES+24,15
7 C(1)=15:C(2)=12:C(3)=11:F$="   [198][160][207][160][206][160][212][160][160][160][195][160][200][160][193][160][206][160][199][160][197] [210]":MU=1
8 C(7)=11:C(6)=12:C(5)=15:C(4)=12:FORI=1TO6:READFO$(I):FO$(I)=FO$(I)+" [198][207][206][212]"
9 NEXT:READFO$(7),FO$(8),FO$(9):I=0
10 GOTO24
11 POKE646,6:PRINT""SPC(5)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
12 FORC=1TO5:PRINTSPC(5)"[221]                             [221]":NEXT
13 PRINTSPC(5)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":GOSUB14:RETURN
14 POKE198,0:POKE214,6:PRINT:PRINT:FORC=1TO10:POKE646,14:IFMU=CTHENPOKE646,7
15 PRINTTAB(20-LEN(FO$(C))/2)FO$(C):NEXT:MU=9:C=6:MU=1
16 POKE214,18:PRINT:PRINT"   [158] [213][211][197] [195][213][210][211][207][210]/[210][197][212][213][210][206] [212][207][160][211][197][204][197][195][212] [198][207][206][212] "
17 PRINT"   [155]ABCDEFGHIJKLMNOPQRSTUVWXYZ   12345"
18 PRINT"   [193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217][218]   67890[145]":RETURN
19 POKE646,C(I+2):PRINT""SPC(13)F1$
20 POKE646,C(I+1):PRINTSPC(13)F2$
21 POKE646,C(I):PRINTSPC(6)F$
22 POKE646,C(I+1):PRINTSPC(19)F3$
23 POKE646,C(I+2):PRINTSPC(12)F4$:RETURN
24 GOSUB11:GOTO27
25 I=I+1:IFI=5THENI=1
26 GOSUB19:RETURN
27 GETA$:GOSUB43:GOSUB25:IFA$=""THEN27
28 UM=MU:IFA$="[145]"THENMU=MU-1:IFMU<1THENMU=9
29 IFA$=""THENMU=MU+1:IFMU>9THENMU=1
30 IFA$=CHR$(13)THEN45
31 POKE214,6+UM:PRINT:PRINTTAB(20-LEN(FO$(UM))/2)"[154]"FO$(UM)
32 POKE214,6+MU:PRINT:PRINTTAB(20-LEN(FO$(MU))/2)"[158]"FO$(MU):GOTO27
33 I=1:GOSUB19
34 IFA$="Q"THEN36
35 CH=1:LOADFI$,8,1
36 FORI=62464TO62564:POKEI,0:NEXT
37 POKE787,0:OPEN15,8,15,"R0:LOADSTAR BRIEFS=LOADSTAR BRIEFS":INPUT#15,ER
38 CLOSE15:POKE53272,21
39 IFER<>63THENEND
40 A$="LOADSTAR BRIEFS":Q$=CHR$(34):POKE53281,0:POKE53280,0:PRINT"[147]"
41 PRINT"[144]LOAD"Q$A$Q$",8"
42 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END
43 C=C+1:IFC>7THENC=1
44 POKE646,C(C):POKE214,6+MU:PRINT:PRINTTAB(20-LEN(FO$(MU))/2)FO$(MU):RETURN
45 IFMU>6THEN50
46 GOSUB60:CH=1:LOADAA$+" FONT",8,1
47 DATA"[210][213][211][212][207][206]","[199][210][197][212][206][193]","[207][201][204] [195][201][212][217]","[195]-128"
48 DATA"[195]-64","[204][207][193][196][211][212][193][210]","[213][211][197][160][217][207][213][210][160][207][215][206][160][198][207][206][212]","[201][206][211][212][193][204][204][160][217][207][213][210] [206][197][215][160][198][207][206][212]"
49 DATA"[210][197][212][213][210][206][160][212][207][160][204][207][193][196][211][212][193][210] [194][210][201][197][198][211]"
50 ONMU-6GOTO65,51,36
51 POKE214,20:PRINT:FORU=1TO2:PRINT"                                      ";
52 NEXT:PRINT"":FA$="FNT"
53 FORU=1TO4:POKE214,20:PRINT:PRINTTAB(8)"[155][201][206][211][197][210][212] [211][201][196][197]"U"OF [204][207][193][196][211][212][193][210]"
54 PRINTTAB(6)"[193][206][196][160][208][210][197][211][211][160][210][197][212][213][210][206][155]/ [158][209][155] [212][207][160][193][194][207][210][212]"
55 GETA$:IFA$<>"Q"ANDA$<>CHR$(13)THEN55
56 IFA$="Q"THENRUN
57 FA$="FNT":CLOSE15:OPEN15,8,15,"S0:FNT":CLOSE15
58 GOSUB86
59 POKES+4,37:FORT=0TO500:NEXT:POKES+4,36:NEXT:RUN
60 AA$="":FORI=1TOLEN(FO$(MU))-5
61 A2$=MID$(FO$(MU),I,1)
62 IFA2$<"[193]"ORA2$>"[218]"THENAA$=AA$+A2$:NEXT:GOTO64
63 AA$=AA$+CHR$(ASC(A2$)-128):NEXT
64 I=0:RETURN
65 POKE214,18:PRINT:FORI=1TO5:PRINT"                                      "
66 NEXT:PRINT"":POKE214,19:PRINT:PRINT"[158][197]NTER NAME OF FONT: ";
67 POKE53272,23:LI=16:GOSUB75:POKE53272,31:PRINT:IFW$=""THENRUN
68 POKE214,19:PRINT:PRINT"          [159][201]NSERT DISK/[159]HIT[158] [210][197][212][213][210][206]  "
69 GETA$:IFA$<>CHR$(13)THEN69
70 OPEN15,8,15,"I0:":OPEN2,8,2,W$+",P,R":INPUT#15,E$,E$:IFE$<>"OK"THEN74
71 GET#2,A$,A$:FORI=14336TO15072STEP4:GET#2,A$,A1$,A2$,A3$
72 POKEI,ASC(A$+CHR$(0)):POKEI+1,ASC(A1$+CHR$(0))
73 POKEI+2,ASC(A2$+CHR$(0)):POKEI+3,ASC(A3$+CHR$(0)):NEXT:CLOSE2:RUN
74 PRINT"[147]"E$:PRINT"PRESS A KEY...":POKE198,0:WAIT198,1:RUN
75 W$="":PRINT">[146][157]";:IFLIMIT=0THENLIMIT=80
76 GETA$:IFA$="[145]"ORA$=""ORA$="[157]"ORA$=""ORA$=""ORA$="[147]"ORA$=""THEN76
77 AS=ASC(A$):IFAS=13ORAS=141ORAS=20THEN82
78 IFPEEK(653)=2ORPEEK(653)=4THEN76
79 IFLEN(W$)=LIMITTHENIFAS<>20ANDAS<>13ANDAS<>141THEN76
80 IFAS=34OR(AS>=133ANDAS<=140)OR(AS>=1ANDAS<=31)THEN76
81 W$=W$+A$:PRINTA$">[146][157]";:GOTO76
82 IFAS=20ANDW$<>""THENW$=LEFT$(W$,LEN(W$)-1):PRINT"[157]<[146] [157][157]";:GOTO76
83 IFAS=20ANDW$=""THEN76
84 IFAS=13THENPRINT" ":LIMIT=0:RETURN
85 SYS57812FA$,8:POKE193,00:POKE194,56:POKE174,00:POKE175,64:SYS62954
86 POKE780,2:POKE781,8:POKE782,2:SYS65466
87 POKE824,70:POKE825,78:POKE826,84
88 POKE780,3:POKE781,56:POKE782,3:SYS65469
89 POKE251,0:POKE252,56
90 POKE780,251:POKE781,0:POKE782,64:SYS65496
91 RETURN
92 OPEN15,8,15,"S0:FONT CHANGER":CLOSE15:SAVE"FONT CHANGER",8:END